Apple Reference & Presen…rary 6 (Reseller Edition)/Apple Ref. & Pres. Lib.v6.0.toast/mac/3-Presentations/Markets/Eng.:Science Markets/Eng:Sci Guide/Open Me First/stack.txt

Text File | 1990-08-14 | 4KB | 116 lines

-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x9000 (can't modify)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 2
-- first background id: 2771
-- card count: 56
-- first card id: 2990
-- list block id: 9941
-- print block id: 4164
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 91808 bytes
-- stack block size: 3584 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x01258000
-- modified by hypercard version: 0x01258000
-- opened by hypercard version: 0x01258000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on openStack
  hide menubar
end openStack

on doMenu what
  --•• Modified by Medior 8/8/90
  if what is in "quit hypercard" then
    if the short name of this card is not "LegalJunk" then
      visual barn door close to black
      visual barn door open
      go cd "LegalJunk"
    end if
  else if what is "Home" then send "domenu home" to cd "LegalJunk"
  else pass doMenu
end doMenu

on closeStack
  if the freeSize of this stack > 0.10 * the size of this stack then doMenu "Compact Stack"
end closeStack

on goCard
  set the locktext of the target to false
  click at the clickloc
  click at the clickloc
  select the selectedline
  if fld "thePath" contains "topic" then
    put char 1 to 24 of the selection into toSection
    set the locktext of the target to true
    push card
    visual zoom open
    go card toSection
  else
    if char 1 to 3 of the selection is not "   " then
      put char 1 to 24 of the selection into toCompany
      set the locktext of the target to true
      push card
      visual zoom open
      go card toCompany of stack "Company Cards"
    else
      put char 4 to 27 of the selection into toProduct
      set the locktext of the target to true
      push card
      visual zoom open
      go card toProduct of stack "Product Cards"
    end if
  end if
end goCard